

lapop12 = readRDS('data/lapop12.rds')

#### table 1: main result #### 


#panel a
m1 = lm_robust(soc.cl_bin ~ trial, 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m2 = lm_robust(soc.cl_bin ~ trial + q1 + q2 + trend + weekend , 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m3 = lm_robust(soc.cl_bin ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=14), 
               fixed_effects = estratopri + estratosec)
m4 = lm_robust(soc.cl_bin ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=7), 
               fixed_effects = estratopri + estratosec)
texreg::texreg(list(m1, m2, m3, m4), include.ci = F, 
               stars = c(.001, .01, .05, .1), 
               symbol = '\\dagger')

#panel b
m1 = lm_robust(torture_bin ~ trial, 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m2 = lm_robust(torture_bin ~ trial + q1 + q2 + trend + weekend , 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m3 = lm_robust(torture_bin ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=14), 
               fixed_effects = estratopri + estratosec)
m4 = lm_robust(torture_bin ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=7), 
               fixed_effects = estratopri + estratosec)
texreg::texreg(list(m1, m2, m3, m4), include.ci = F, 
               stars = c(.001, .01, .05, .1), 
               symbol = '\\dagger')

#panel c
m1 = lm_robust(fair_trial ~ trial, 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m2 = lm_robust(fair_trial ~ trial + q1 + q2 + trend + weekend , 
               data = lapop12,
               fixed_effects = estratopri + estratosec)
m3 = lm_robust(fair_trial ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=14), 
               fixed_effects = estratopri + estratosec)
m4 = lm_robust(fair_trial ~ trial + q1 + q2 + trend + weekend, 
               data = subset(lapop12, abs(trend)<=7), 
               fixed_effects = estratopri + estratosec)
texreg::texreg(list(m1, m2, m3, m4), include.ci = F, 
               stars = c(.001, .01, .05, .1), 
               symbol = '\\dagger')


